home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / isetl.arc / assign.t next >
Text File  |  1987-08-20  |  206b  |  17 lines
  1. program test;
  2.     x := 1; y := 0;
  3.     while x<10 do
  4.     if x=4 then a := [1,a]; b:= [2,b];
  5.     elseif x=3 then a := [3,a];
  6.     elseif x=5 then a := [5,a];
  7.     else y := y+1;
  8.     end;
  9.     x := x+1;
  10.     end;
  11. end;
  12.  
  13. a;
  14. b;
  15. x;
  16. y;
  17.